Compute! Gazette 1987 January/1987-01.d64/info please

Commodore BASIC | 2022-09-20 | 2KB | 33 lines

10 print"[147]reading data":ck=0:fori=49152to49423:readd:pokei,d:ck=ck+d:next
20 ifck<>30932thenprint"error in data statements":end
30 print"[147]disk or tape (d/t) ";:inputa$
40 ifleft$(a$,1)="t"thendv$="prepare tape":dv=1:goto70
50 ifleft$(a$,1)="d"thendv$="insert disk":dv=8:goto70
60 goto30
70 print""dv$", then press return"
75 print"  the gazette disk is write-protected   "
80 geta$:ifa$<>chr$(13)then80
90 print"writing file
100 f$[178]"info please":[151]251,[194](71):[151]252,[194](72)
110 ad[178][194](251)[170][194](252)[172]256:[151]183,[194](ad):[151]187,[194](ad[170]1)
120 [151]188,[194](ad[170]2):[151]184,dv:[151]186,dv:[151]185,1
130 [151]251,0:[151]252,192:[151]780,251:[151]781,16:[151]782,193:[158]65496
140 [153]"load info please file created":[128]
150 [131] 169,181,160,192,32,30,171,169,0,133,253,133,254,165,43,133
160 [131] 251,165,44,133,252,160,0,177,251,72,200,177,251,240,13,133
170 [131] 252,104,133,251,230,253,208,237,230,254,208,233,104,165,254,166
180 [131] 253,32,160,192,56,165,45,229,43,170,165,46,229,44,32,160
190 [131] 192,56,165,47,229,45,170,165,48,229,46,32,160,192,56,165
200 [131] 49,229,47,170,165,50,229,48,32,160,192,32,38,181,56,165
210 [131] 55,229,51,133,253,170,165,56,229,52,133,254,32,160,192,56
220 [131] 165,55,229,43,170,165,56,229,44,32,160,192,56,165,49,229
230 [131] 43,170,165,50,229,44,168,24,138,101,253,170,152,101,254,32
240 [131] 160,192,56,165,51,229,49,170,165,52,229,50,32,160,192,96
250 [131] 72,138,72,169,9,133,211,32,108,229,104,170,104,32,205,189
260 [131] 169,13,76,210,255,13,13,76,73,78,69,83,46,46,46,46
270 [131] 13,80,82,79,71,82,65,77,46,46,13,86,65,82,73,65
280 [131] 66,76,69,46,13,65,82,82,65,89,46,46,46,46,13,83
290 [131] 84,82,73,78,71,46,46,46,13,77,69,77,79,82,89,46
300 [131] 46,46,13,85,83,69,68,46,46,46,46,46,13,70,82,69
310 [131] 69,46,46,46,46,46,13,145,145,145,145,145,145,145,145,0